home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / auctiondeluxe_xss.nasl < prev    next >
Text File  |  2005-01-14  |  2KB  |  81 lines
  1.  
  2. #
  3. # This script was written by Renaud Deraison <deraison@cvs.nessus.org>
  4. #
  5. # See the Nessus Scripts License for details
  6. #
  7.  
  8. if(description)
  9. {
  10.  script_id(11365);
  11.  script_bugtraq_id(4069);
  12.  script_cve_id("CAN-2002-0257");
  13.  script_version ("$Revision: 1.7 $");
  14.  
  15.  name["english"] = "Auction Deluxe XSS";
  16.  script_name(english:name["english"]);
  17.  
  18.  desc["english"] = "
  19. The remote Auction Deluxe server is vulnerable to 
  20. a cross site scripting attack.
  21.  
  22. As a result, a user could easily steal the cookies
  23. of your legitimate users and impersonate them.
  24.  
  25. Solution : Upgrade to Auction Deluxe 3.30 or newer
  26. Risk factor : Medium";
  27.  
  28.  
  29.  
  30.  
  31.  script_description(english:desc["english"]);
  32.  
  33.  summary["english"] = "Checks for auction.pl";
  34.  
  35.  script_summary(english:summary["english"]);
  36.  
  37.  script_category(ACT_GATHER_INFO);
  38.  
  39.  
  40.  script_copyright(english:"This script is Copyright (C) 2003 Renaud Deraison",
  41.         francais:"Ce script est Copyright (C) 2003 Renaud Deraison");
  42.  family["english"] = "CGI abuses";
  43.  family["francais"] = "Abus de CGI";
  44.  script_family(english:family["english"], francais:family["francais"]);
  45.  script_dependencie("find_service.nes", "no404.nasl", "cross_site_scripting.nasl");
  46.  script_require_ports("Services/www", 80);
  47.  exit(0);
  48. }
  49.  
  50.  
  51. include("http_func.inc");
  52. include("http_keepalive.inc");
  53.  
  54. port = get_http_port(default:80);
  55.  
  56. if(!get_port_state(port))exit(0);
  57. if(get_kb_item(string("www/", port, "/generic_xss"))) exit(0);
  58.  
  59. dir = make_list(cgi_dirs());
  60. foreach d (dir)
  61. {
  62.  if(isnull(dirs))dirs = make_list(string(d, "/auctiondeluxe"));
  63.  else dirs = make_list(dirs, string(d, "/auctiondeluxe"));
  64. }
  65.  
  66.  
  67. foreach dir (make_list(dirs, ""))
  68. {
  69.  req = http_get(item:string(dir, "/auction.pl?searchstring=<script>foo</script>"), port:port);
  70.  res = http_keepalive_send_recv(port:port, data:req, bodyonly:TRUE);
  71.  if(res == NULL) exit(0);
  72.  if(!ereg(pattern:"^HTTP/[0-9]\.[0-9] 200 ", string:res))exit(0);
  73.  
  74.  str = egrep(pattern:"<script>foo</script>", string:res, icase:TRUE);
  75.  if(str)
  76.  {
  77.     security_warning(port);
  78.     exit(0);
  79.  }
  80. }
  81.